$PBExportHeader$uo_areaxtit.sru
forward
global type uo_areaxtit from uo_dw
end type
end forward

global type uo_areaxtit from uo_dw
end type
global uo_areaxtit uo_areaxtit

event retrieverow;call super::retrieverow;if row > 0 Then
	If This.GetItemString(row,'original') <> 'S' THEN
		
	 	This.SetItemStatus(row,0,Primary!,NewModified!)
		 
	End If
End If
end event

